fl$S * 

32000 FOR ft=DTO E; IF %( ft )c256#13NEXT ft 
32010 N=N+1 ; ft=ft+2 ; @C N )=%( ft ) ; NEXT ft 

32020 INPUT ” . FL#"0, * . SP“G; : PRINT ;M=0;GOSUB F ; FOR ft=BTQ E; TU=X( ft ) ; B=%( ft )c256; IF 
C RM=13 ) + ( RM=-243 )GOSUB F 
32030 IF ( RM=1 10 )+( RM=1 1 1 )GOSUB H 
32040 NEXT ft; PRINT ; STOP 

32050 T=0; FOR B=ftTO ft+5;IF (%(B )c256-53 )c6=0 T=Tb 10+RM+5; ft=ft+l ; NEXT B 
320S0 FOR B=0TQ N;IF @(B)=TPRINT #0, BbG+O, ; RETURN 
32070 NEXT B; RETURN 

32080 PRINT #4, MbG+O, ;TU=32;M=M+1; fl=ft+2; RETURN 



5 . STRftIGHT LINES 
S .JIM DUNSON 12/78 

7 . 

10 CLEftR ; T=0; NT=0; N=0; FC=BC- 1 ; BC=RNB C32)b8;S=RND C 20 ) + 10; R=RND C3);C=R 
20 M=X; GOSUB 40;GOSUB 50;N=X;GOSUB 40;GOSUE 50;T=T+1;IF T=SFOR D=1T0 1000; NEXT 
D; GOTO 10 
30 GOTO 20 

40 X=RND C 14 )-7; RETURN 

50 ft=Mb9; B=Nb6; IF R=2 C=RNB C3) _ 

60 LINE ft , B , C ; RETURN Q , ! fcfejLfc 

' 1 - ‘ 4 
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MJOIFI^AT IQS to list note* and (Lunation input* of- Baity: j Voice ftu*ic fompo*en-f lagen . . 

In onden fan you to moniton youn accuracy of input*, add. the. following, tine, to the. 
ha*ic pnognam, Q£FQR ( f nunning youn pnognam. , » on. *ee betouf to ne*tant. . 

125 if t*- 2 mm m, %m256+i27, 70(9+1)5256+127, %(f +2)^+1 27, %(f +3)5256+1 27 

.then in the T input mode, input - 2 to li*t youn input *. , Ail but the loot faun, wild 
li*t. . AJUo, youn compute n Aubtnact* / fnom the veny fin*t voice of the music, of 
aid note* except tho*e numbened 125 and highen. So, on the fm*i input add / to the 
value called fan, . If the value called fan i* 6J, input 68., The only input affected 
in thi* mannen id the one uhene ft and R one the *ame. . ( It doe* make a diffenence) 

Should you get all ’goofed up' and want to *tant oven again. . £ithen input -4* 
until the *cneen '(Jlf^.S* , on HALT the computen, enten ft=0; m.. 

With the above rmdJLficatwn, my 1 1 yean old boy make * beautiful mu*ic. . . It help* 
enmn pnone ftfc, at*o. , $im Oun*on. .... 

fS: Line. 15$ ;L*l+f /should be LxL-l 
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R£ S£QU£fCIh§ by lion. Schweitpen. 

by. 

Thio pnoynam will nenumben, in sequence, a Bally pnoynam and pnint ike. nenumbened 
pnoynam on tape. , Thio venAian. doe* not nenumben ike neAeyuencing pnoynam oa ike 
eanlien venAian. did. . li will fix. §010 and §OSUB, even when ike object pnoynam La 
4plii inio two panto in onden io nenumben ii, aA long, oa ikey one not identified 
by a vaniable, . 



mo defied 



dim OunAon 

9 0 0 9 0 1 



fnoynam ike neoeguencing pnoynam into youn compute n, leaving no unn&ceAAa/iy ApaceA. 
Thena Immil be /§/§ SZ left. . In onden. to nave byieA, Aome of ike pnoynam La ONUJ 
on tape. , §et tape neady to go. . Tut ike following on ike Acneen.: 

> t wm f m/ff'C=-&576; (K+ 2 ; i=%( 2 Mji)- 6 ; F.&Sai; N4; §4)4(0'; 

LIST §et iape moving and punk §0. . Then it in finioked neconding , ike entine. 

pnoynam in on iape and neady io uoe. . (The pnoynam in the computen will NCff wonk. ) 



To nenumben. a pnoynam: R£STT ike computen. . Load ike object pnoynam, the one io 
be nenumbened, into ike computen, . TRIST SZ. , Multiply ike numben of numbened 
line Atatemento in ike object pnoynam Omen two, pluA T?3. . The neAuli io the 
SZ that io needed to nenumben youn. pnoynam, . (pmpane SZ with ike neAuli. . 

If you have enough SZ left, load ike neAeguencing pnoynam on top of ike object 
pnoynam. . liken it io loaded, yet youn. iape neady aid tell the computen. to §010 
TXfyfaf), , Aften a Thant wait, not mane than oecondo, ike computen will aoh fon 
.FLM. , That io ike finot numben that you want youn. nenumbened pnoynam io otani 
with. . Ii will then, aoh fon . ST. . That io die Apacing you deoine between ike 
line oiatemento. . §et ike iape moving and punk ffi. . lou will oee ike nenumben- 
ed pnoynam lioting on ike ocneen ao it io being neconded on tape, . The newly 
nenumbened pnoynam La Oh/Ll on tape. . It La not in. ike computen. . 

If you do not have enough SZ left aften. loading ike object pnoynam, it will have 
to be Aplii into two panto, in onden. to yet a nenumbened. . The pnoceedune oa 
above io uoed with tkio additional. , Remove the Aiatemento on text fnom Aome 
of die numbened line Atatemento. . Replace them with ike SAT£ numbenA, with ONUJ 
a pentad following ike numben. . ie. 212, 2 / 3, jtk. etc. , Only do enough to 

get youn. SZ above the minimum, uoing ike pnoceedune above, , Make a note of ike 
oneA modified . Load neAeyuencing pnoynam on. top of ike modified object pnoynam 
and pnoceed. . Aften ike finAt pant io taped, RfSfJ, neload oniginal pnoynam 
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Mj compute* again* . !%jdlfy id in ike name marine* an befone, uning OIFFffi&VF, 
numbered line niadeimndn. . Load neneguendng pnognam on top and proceed again, . 
you now have two dlffenervtly modified pnognam* on tape, . compute*. . Load 

ike one ikadt you modi.Li.ed oecond into ike compute*, , Remove aid ot ike line 
oiaiemeni* ikai you modified, . Rut id back on tape, . RFSfJ compute*. . Load 
ike pnognam ikad you modified find and then load ike pnognam ikai you *emoved 
ike modified line ntaiement* fnom on top . . dou now have a complete *enumbe*ed 
pnognam wiik fy)T0 and CPSLB fixed. . 

. ... . 

Thin may *eem combennome, but id nune bead* ike keck out of doing id by fingen, . 

ftt&Lka*. my endennal gnadidude fo* thin one . . $im, . 

(Note: In o*de* fo* thin pnognam io wonk poopenly, ike compute * muni be R^SFJ t 

ike object pnognam loaded and ike neneguencing pnognam Loaded on top. . If any 
iking in changed afde* loading ike neneguencing pnognam^ you will have io ield 
ike compute* ikai and that #4. J (&*%(2SM4)-6 mime 285 & of 

ike neneguencing pnognam. .) 



